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Preface 


ATARI is one of the world's most-popular computer 
systems for use in the home, classroom and small- 
business office. If Из not already more popular than 
others, it is fast becoming So. 

Its lightweight desktop design and powerful 
language capability place it in the forefront of the new 
wave of personal computers for hobbyists, students, 
teachers, professionals, business persons and all who 
want to learn the technology. 

It's not a toy! Its hardware and software combination 
make it a highly useful tool in the business environment 
and the classroom as well as for practical jobs around the 
home. 

The total number of applications to which the ATARI 
computer can be put is limited only by the scope of the 
imagination. In this book we have attempted to create and 
share 31 new, specific, practical sets of applications for 
your use. 

This book, as are all published by ARCsoft 
Publishers, is written for newcomers, beginners, novices 
and first-timers, as well as advanced users of micro- 
computers. Our intention has been to provide easy-to- 
type-in-and-run programs for the ATARI Model 400 and 
Model 800 computers. You type them in and your ATARI 
does the rest. 

This book is a companion volume to 707 ATARI Com- 
puter Programming Tips & Tricks. 


—Alan North 
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Introduction 


There’s a great need for practical, useful software for 
the new generation of popular personal computers. The 
ATARI Model 400 and Model 800 computers, for example, 
are among the world's most popular gear. The ATARI is 
powerful and versatile and flexible—but what can it do? 
Once you've purchased the hardware, you need down-to- 
earth workable programs to run the computer. 

The aim of this book is to provide 31 complete, easy- 
to-type, ready-to-run new and different sets of program 
lists for you to use in making your ATARI computer work 
for you. 

These programs are useful in themselves. They also 
make good starting points for further development as you 
learn more about how to program your own computer. 
You can use these fun and practical programs and then 
modify them and expand them to suit your needs as they 
grow. 

These programs are designed to be typed in, just as 
you find them in the book, with no other programming 
needed. We assume you have looked over the owner's 
manual which came with your Model 400 or Model 800 
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ATARI computer and know how to hook it to your TV set, 
turn it on and type in programs. You do not have to be a 
programmer to use these pieces of software. Just type 
them in as you find them here and run them. They will 
work! 

To make sure there are no errors in these programs, 
we have written and tested each and every one on our own 
ATARI computer and printed them for reproduction in this 
book. The ATARI computer operated a line printer and 
listed these programs. No human hands came between 
the computer and the listing so no re-typing or proof- 
reading errors have been introduced. You should find 
these programs will run exactly as reproduced here. 

If, after typing in a program, you get an error message 
from your ATARI computer, check the handy list of error 
messages and ATARI BASIC words in the Appendix at the 
rear of this book. Then compare your typed program lines 
with the lines in this book. Undoubtedly, you will find you 
have made a typo in entering the program lines into your 
ATARI. However, should you find an error in a program in 
this book, please call it to the attention of the author by 
sending a postcard or letter to him in care of ARCsoft 
Publishers, P.O. Box 132, Woodsboro, MD 21798 USA. He 
will appreciate being able to make any necessary correc- 
tions to future editions. 


Home, school and office 


The book has been organized into three sections 
plus the Appendix. The first section includes programs 
which might seem most useful in the home or wherever 
hobbyists use a computer. The second section includes 
programs for use in a learning environment, by students 
and teachers. This might be a classroom or it might be in 
your home. The third section holds programs of interest 
to business persons and professionals. 

Naturally, these sections, as divided, are not rigid 
and exclusive. You probably will find something in the 
business or classroom section applicable to your home 
use. And you probably will take several of the home pro- 
grams to your office or classroom. 


Try them all. They're great fun to run. And they are 
especially designed to be short so you won't have to 
spend hours typing in one program. 


REMarks 


As you read through the 31 programs in this book, 
you will notice few REM, or remarks, statements. The 
author's training in writing BASIC-language computer 
programs included an emphasis on brevity and saving 
memory space. A sharp editing pencil was in order—and 
Still is! 

REMarks and explanations in software are out. Hon- 
ing, fine-tuning and waste trimming are in. Use of coding 
form program-writing worksheets, such as the ATARI 
Computer BASIC Coding Form tablet published by ARC- 
soft Publishers, is encouraged. The objective always 
should be to make the most efficient use of available 
memory. 

Always remember: even though they may be headed 
toward the same goal, no two programmers will write ex- 
actly the same list of BASIC instructions, or program 
lines, from scratch. As you load these 31 programs into 
your ATARI computer, one at a time, you'll make modifica- 
tions to suit your personal needs and interests. Exact 
wording of PRINT statements, for instance, can be 
changed. Or two or more programs can be combined into 
one grand scheme. Your applications may vary. 

If you want to load more than one of these programs 
into your ATARI computer at the same time, be sure to 
use different sets of line numbers for different programs. 


RETURN vs. ENTER 


Computer programmers today generally mix the two 
words, RETURN and ENTER, together and use them to 
mean the same thing. In either case, we mean the button 
on the right-hand side of the ATARI keyboard printed 
RETURN. 

These programs will run on any computer which is 
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programmed in BASIC. However, to run on machines, 
other than the Model 400 and Model 800 by ATARI, you 
will have to make slight modifications to program lines. 
Graphics commands, especially, will differ elsewhere. 

Refer to the owner's manual which came with your 
personal computer to compare its version of BASIC with 
the ATARI BASIC. A handy list of ATARI’s BASIC words 
can be found in the Appendix at the end of this book. 

Also, if you use a computer, other than the ATARI 400 
or 800, such things as line numbering, logical tests, 
multiplication symbols, print statements and other in- 
structions may differ. 


Special note: screen clear and buzzer 


We have attempted to make this book as accurate as 
possible by reproducing the programs directly from aline- 
printer printout of the ATARI’s program memory. The line 
printer is unable to reproduce the odd, special “crooked 
arrow" symbol used by the ATARI video display to repre- 
sent screen clear or buzzer. Rather, in this book, the right- 
pointing bracket symbol (>) replaces the crooked arrow. 
So, if you see a line which reads like this: 

10 PRINT ‘9” 
take that to mean either a video display screen clear com- 
mand or a ring-the-buzzer command. 

In most all cases we have placed a REM note im- 
mediately after such a command so you know what is be- 
ing called for. As an example, you might see a line such 
as this: 

10 PRINT ‘?”:REM SCREEN CLEAR 

You obtain the crooked arrow by pressing the ESC key 
and the SHIFT key and the CLEAR key. Press ESC. Then 
press SHIFT and hold it and press CLEAR. This places the 
crooked arrow on the screen. To type the full program line 
above, key in the line number, 10, and the word PRINT and 
the first quotation mark. Then press ESC, press and hold 
SHIFT, and press CLEAR. Then key in the final quotation 
mark. This will write the clear-the-screen command as a 
program line. 

To write a sound-the-buzzer command as a program 
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line, substitute the 2 key for the CLEAR key used above. 
Here's a sample program line: 
10 PRINT “P''REM BUZZER 

To enter this program line, key in the line number, the 
word PRINT, and the first quotation mark. Then press 
ESC, press and hold SHIFT and press the 2 key. Then key 
in the final quotation mark and any other following parts 
of the line. This will cause the computer to make its buzz- 
ing sound effect when it encounters that particular line 
during a run. 

All other letters, numbers and symbols used in this 
book are found on the ATARI keyboard. In the Areas pro- 
grams, and certain others, where the value of Pi was 
called for, we have substituted the simple number 3.14 for 
the value. If you require more accuracy, please feel free to 
substitute a Pi value to more decimal places. 


Endless running 


Many of the programs in this book will continue to 
run until you command them off via the BREAK key. You 
may stop any run, at any time, with the BREAK key. For 
example, Poetrywriter will continue to generate new and 
different verses until you press the BREAK key. 

The author would like to have your suggestions for 
changes in future editions of this work, or for other books 
in this series for the ATARI computers. He may be ad- 
dressed in care of ARCsoft Publishers. 
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Programs for the home 


Horoscope 


This fun program will entertain your family and 
friends for hours. It makes a great party game, too. | 

The player, or user, talks with the computer, giving 
his name, month of birth and date of birth. The computer 
then tells the player his sign of the zodiac and what it 
means. The computer describes the player's personality 
and predicts the player's future. 

If you find the program a bit long to type in, shorten it 
by using the sign-of-the-zodiac response only. For in- 
stance, between lines 700 and 790 you could delete 710 
and 750 or 720 to 750. That would make the program 
shorter and easier to type in, but without most of the ex- 
citing description. 

Try it. You'll like it! 


Program Listing 


10 DIM N$(20),M$(9),KY$(1) 

20 PRINT "}":ВЕМ CLEAR SCREEN 

30 PRINT :PRINT "WHAT’S YOUR NAME" 
40 INPUT N$ 

Эд PRINT "HI, ";N$;", NICE TO MEET You" 
60 PRINT 

70 PRINT "IN WHAT MONTH WERE YOU BORN" 
88 INPUT Ms 

90 PRINT :PRINT М$;" IS A NICE MONTH" 
100 PRINT "WHAT DATE IN "ме 

110 INPUT D 


200 IF M$=" DECEMBER" AND 0521 THEN 700 
210 IF M$-"JANUARY" AND D<2@ THEN 700 
220 IF M$=" JANUARY" AND D^19 THEN 800 
230 IF M$-"FERRUARY" AND D<i9 THEN 800 
240 IF M$="FEBRUARY" AND D>18 THEN 900 
250 IF M$="MARCH" AND 5521 THEN SQQ 
260 IF M$-"MARCH" AND D>2Q THEN 1000 
270 IF M$-"APRIL" AND D<2@ THEN 1000 
¿80 IF M$="APRIL" AND 0519 THEN 2000 
290 IF M$-"MAY" AND D<21 THEN 2000 


M$=" MAY" 


AND 0:20 THEN 3000 


310 IF M$="JUNE" AND D<zi THEN 3000 

320 IF M$-"JUNE" AND D^zQ THEN 4000 

330 IF M$="JULY" AND 0:23 THEN 4000 

340 IF Mé=" JULY" AND D:22 THEN 5000 

50 IF M$-"AUGUST" AND «23 THEN 5000 
360 IF M$-"AUGUST" AND D>ZZ THEN 6000 
370 IF M$="SEPTEMBER" AND П:24 THEN 6000 
380 IF M$=" SEPTEMBER" AND D>23 THEN 7000 
390 IF M$-"OCTOBER" AND 0524 THEN 7000 
400 IF M$-"OCTOBRER" AND D>23 THEN 8000 
410 IF M$-"NOVEMBER" AND 0522 THEN 8000 
420 IF M$-"NOVEMBER" AND 0-21 THEN 9000 
430 IF M$="DECEMBER" AND 0<22 THEN 9000 
440 CLR :GOTO 10 

300 PRINT :PRINT 

310 PRINT "TO DO ANOTHER, PRESS RETURN" 
Э20 INPUT КУБ 

330 CLR :GOTO 10 

700 PRINT "SO, "sN$;" YOU'RE CAPRICORN” 
710 PRINT "CAPRICORN IS THE GOAT" 

720 PRINT "YOU ARE TOUGH HEAD-TO-HEAD." 
730 PRINT "YOU MISTRUST PEOPLE BUT" 

740 PRINT "YOU LIKE SMALL CHILDREN." 

750 PRINT "YOU WILL TAKE A TRIP." 

790 GOTO 500 

800 PRINT N$3" YOU ARE AN AQUARIUS" 

810 PRINT "AQUARIUS IS THE WATER BEARER" 
820 PRINT "YOU ARE A LIQUID PERSON." 

830 PRINT "YOU DO SNEAKY THINGS BUT" 

840 PRINT "PEOPLE SECRETLY ADMIRE YOU." 
850 PRINT "YOU SOON WILL FIND A REWARD. " 
890 GOTO 500 

900 PRINT "SO, "sN$;" YOU ARE А PISCES" 
910 PRINT "PISCES IS THE FISH" 

920 PRINT "YOU OFTEN FEEL WEAK BUT" 

930 PRINT "PEOPLE THINK YOU OTHERWISE." 
940 PRINT "A STRANGER SOON" 

950 PRINT "WILL AFFECT YOUR LIFE." 

990 GOTO 500 

1000 PRINT "SO, ";№;" YOU ARE AN ARIES" 
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1010 
1020 
10.30 
1040 
1050 
1090 
20060 
2010 
2020 
20.30 
2040 
2050 
2460 
2090 
δ 
4010 
3020 
3030 
3040 
3050 
3050 
3098 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
40390 
50020 
5010 
50:0 
5030 
5040 
5050 
5060 
509u 
60068 
56010 
6020 
6020 
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PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


"ARIES IS THE RAM" 

"YOU SOMETIMES FEEL DEVILISH" 
"BUT OTHERS ге МК OF YoU" 

"AS A SAINT." 

"AVOID MOUNTAINS AND CAVES !" 


GOTO 500 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


"БО, "3N$5" YOU ARE А TAURUS" 
"TAURUS IS THE PULL" 

"MOST OF THE TIME" 

"YOU ARE COMPLETELY HONEST" 
"BUT OTHERS THINK YOU ARE" 
"FULL OF PULL." 

"A NICE FRIEND WILL VISIT." 


GOTO 500 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


"SO, "5N$3" YOU ARE A GEMINI" 
"GEMINI IS ΤΗΕ TWINS" 

"IT'S HARD FOR YOU TO DECIDE" 
" YOU OFTEN SPLIT A DECISION" 
"YOU SEE TWO SIDES BUT" 
"FRIENDS FIND YOU DECISIVE" 
"AVOID NEWSPAPER REPORTERS !" 


GOTO 580 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


"SO. "МФ" YOU ARE A CANCER" 
"CANCER IS THE CRAP" 

"YOU LIKE TO VENT YOUR" 
"FEELINGS WHEN THINGS" 

"GO WRONG AND FRIENDS" 
"SOMETIMES EXCLUDE YOU" 
"JEWELS WILL BE IN YOUR PATH" 


GOTO 500 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


"OKAY; "МЕ" YOU 
"LEO IS THE LION" 
"YOUR ROAR IS WORSE" 
"THAN YOUR ΕΙΤΕ." 

"YOUR FRIENDS THINK" 
"YOU ARE A PUSSYCAT." 
"FUR IS IN YOUR FUTURE." 


ARE A LEO" 


GOTO 500 


PRINT 
PRINT 
PRINT 
PRINT 


"SO, "SN$3" YOU АВЕ A VIRGO" 
"VIRGO IS THE VIRGIN" 
"CLEANLINESS IS YOUR VIRTUE." 
"CASUAL ASSOCIATES" 


5040 
6050 
5060 
56070 
58090 
7000 
7010 
70:20 
70.50 
7040 
7050 
7060 
7090 
8094 
вата 
8020 
340,30 
2040 
8050 
80408 
2070 
8090 
9000 
9010 
9020 
92030 
9040 
9050 
9890 
9999 


PRINT 
PRINT 
PRINT 
PRINT 


"THINK YOU ARE TIGHT" 
"BUT THOSE CLOSE TO YOU" 
"KNOW BETTER !" 

"AVOID CARS, BARS AND STARS." 


GoTo 500 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


"SO. "Му" YOU ARE A LIBRA" 
"LIBRA IS THE BALANCE" 
"EVERYTHING WORKS OUT FOR" 
"YOU IN THE END BUT PERILS" 
"ALONG THE WAY SOMETIMES" 
"SEEM TOO GREAT." 

"YOU WILL FIND THE TRUTH." 


сото 500 


PRINT 
PRINT 
PRINT 


"PRINT 


PRINT 
PRINT 
PRINT 
PRINT 


"SO, "3N$3" YOU'RE A SCORPIO" 
"SCORPIO IS THE SCORPION" 
"YOU ARE TRUSTWORTHY, LOYAL," 
"HELPFUL, FRIENDLY, ” 
"COURTEOUS, KIND, OBEDIENT, " 
"CHEERFUL, THRIFTY" 

"AND SEXY." 

"YOU WILL WIN." 


GOTO 500 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
GOTO 
END 


"WELL, "3N$3", A SAGITTARIUS" 
"SAGITTARIUS IS THE ARCHER" 
"YOU FIRE FROM THE HIP" 

"BUT FRIENDS LIKE YOU ANYWAY” 
"HAPPINESS WILL BE YOURS" 
"BUT WATCH OUT FOR FALSENESS" 


заа 


Monthly Loan Payment 


Here's a fast computation of the monthly payment on 
a loan. The amount borrowed, the principle, is stored in 
memory location P. | is the annual interest rate and N is 
the number of payments. | is converted to a monthly in- 
terest rate and then to a decimal in line 50. 
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Program Listing 


10 PRINT "}":REM CLEAR SCREEN 

20 PRINT "AMOUNT BORROWED $ "3: INPUT Р 
ЗӢ PRINT "ANNUAL INTEREST % ";:INPUT I 
40 PRINT "NUMBER OF PAYMENTS "s:INPUT N 
34 Iz0.01*(1/12) 

60 M=(P*1)/(1-—((1+I)A(—N))) 

ға PRINT 

80 PRINT "MONTHLY PAYMENT IS Ф":М 

90 PRINT :PRINT :PRINT 

100 aoTo 20 


батр!е Вип 


AMOUNT BORROWED Ф10000 
ANNUAL INTEREST % 14 
NUMBER OF PAYMENTS 48 


MONTHLY PAYMENT IS Ф273,264871 


Number Of Days In A Month 


Here's a cute teacher for your elementary-age kids. 
This program displays the name of a month and asks how 
many days in that month. 1f the correct number of days is 
entered, the computer says "correct." If an incorrect 
number of days is entered, the computer says "wrong." In 
either case, the correct answer is displayed. The 
educational game can go on forever if needed. 


Program Listing 


10 PRINT ">":REM CLEAR SCREEN 
15 DIM S$(9),C$(2),D$(2) 

20 DATA JANUARY, 31 

30 DATA FEBRUARY, 28 

40 DATA MARCH, 21 

5@ DATA APRIL, За 

60 DATA МАУ, 31 


70 DATA JUNE, 30 

80 DATA JULY, 31 

90 DATA AUGUST, 31 

100 DATA SEPTEMBER, 3@ 

110 DATA OCTOBER, 31 

120 DATA NOVEMBER, 30 

138 DATA DECEMPER, 31 

140 R=INT(1@@*(RND(1))) 

150 IF R224 THEN 140 

160 IF INT(R/Z)=RZ2 THEN R=R-1 
170 FOR L=1 TO R 

180 READ 5% 

190 NEXT L 

200 PRINT "MONTH IS "4548 

210 READ C$ 

220 PRINT "HOW MANY DAYS ІМ "1558 
225 INPUT D$ 

230 IF D$-C$ THEN PRINT "CORRECT":GOTO 300 
240 PRINT "WRONG" 

300 PRINT S#3" HAS "5C#5" DAYS" 
J10 RESTORE 

320 PRINT 

430 GOTO 140 


Poetrywriter'" 


Well, we said it could do anything! All you have to do 
is explain to your computer about adjectives, nouns, 
verbs and adverbs. Give it a nice little vocabulary. And off 
it goes, writing poetry. 

The vocabulary is held as DATA in lines 20 to 200. 
The relationship of the words in each of those program 
lines is important if you want the computer to make sense 
with proper syntax. | 

Each DATA line has seven items (after the BASIC 
word DATA). The seventh "word" actually is a phrase as 
we use it but is treated as one unit. The seven items are 
separated by commas. 

We use the first English word in the DATA line for 
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transitions. The second and third English words are ad- 
jectives. 

The fourth word is a plural noun. The fifth word is a 
verb. The sixth word is an adverb. And the seventh item is 
a colorful phrase. It could just as well be a single word. 

The computer randomly selects one of each of the 
seven types of English words and puts them together to 
form sentences. 

Random number generators are in lines 300, 400, 500, 
600, 700, 800, and 900. Punctuation and print-out order is 
determined in lines 1000 to 1100. 

The computer will write poems all day until you 
press its BREAK key. 


Program Listing 


3 PRINT "9" ВЕМ CLEAR SCREEN 

10 DIM У%(20),М%С20), X68020), Y$ ( ТО) 

15 DIM Z$*$(20@), A$(20)., B$ ( 2@) 

20 DATA THE, BIG, BLUE, MARBLES, RUN, 
SMOOTHLY, IN THE SAND 

30 DATA WHILE, JOLLY, GREEN, GIANTS,EAT, 
HEARTILY; ON THE HILL 

ай DATA AND, FRIENDLY, OLD, BOYS, WEAR, WELL, 
AS THEY AGE 

5@ DATA OR,HARD, PLASTIC, BUTTONS,LAST, 
TOUGHL Y, FOREVER 

50 DATA WHEN, HAIRY, TINY, DOGS, PASS, 
RUSGEDLY,IN THE NIGHT 

70 DATA FROM, WEALTHY , RED, BAGS, TALK, 
HAPPILY,FROM THE VALLEY 

80 DATA FOR,LIVELY,MEAN, FOLKS, PLOW, 
NICELY, ABOVE THE CLOUDS 

90 DATA THE,PRETTY,TIMELY,LOVERS,FL Y, 
LOOSELY, IN THE GROUND 

100 DATA MEANWHILE, SAD, YOUNG, CATS, GRIND, 
CONCRETELY, BEHIND THE BARN 

110 DATA FROM, TIRED, POOR, DRINKERS,FLASH, 
BRIGHTLY, IN THE РАМ 

120 DATA ABOUT, TIGHT, BALD,WIVES, PLAY, 
NOISELY, BEYOND THE PALE 


20 


DATA THE, FOLDED, GLOWING, FARMERS, 
SHINE., MERRILY, TOWARD OUR LIVES 

DATA AND, ROUGH, DARK, HENCHMEN, 

TRYST, SWEETLY,NEAR A TREE 

DATA AS, TIMELY, ROUND, PRIESTS, FOLLOW, 
PL. INDLY, DOWN THE TURES 

DATA WHILE, CRUNCHY, BULKY, STATUES, 
LIF T,;WETLY,IN THE BOX 

DATA AND, GOLDEN, SILVERY, BODIES, TURN, 
FREELY, IN THE WIND 

DATA WHILE, NAKED, CARVED. FLOWERS, GLOW 
s SMARTLY, FROM A MOUNTAIN 

DATA WHERE, SPARKLING, LOUD, MEN, FIGHT, 
WHOLEHEARTEDLY, ТО THE DEATH 

DATA AND, FRESH, NEW, ANCIENTS, HUMANIZE, 
BRAZENLY,FOR THE REST 


R=INTC 133 (RND(1))) 

IF R«7 THEN 300 

IF INT(R/7)<>(R/7) THEN 300 
FOR L=1 TO R 

READ V$ 

NEXT L 

PE STORE 

R=INT(133*(RND(1))) 

IF R<7 THEN 400 

IF INT(R/7)<>(RZ7) THEN 400 
FOR L=1 TO R-i 

READ ИФ 

NEXT L 

RESTORE 

R=INT(133%*(RND(1))3) 

IF R«7 THEN 500 

IF INT(R/73)&-*t€R/7) THEN 500 
FOR L=1 TO R-Z 

READ ХФ 

NEXT L 

RESTORE 

R=INT(133x* (RND(1))) 

IF R«7 THEN 600 

IF INT(R/7)2&-€R/7) THEN 600 
FOR L-1 TO R-3 
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640 READ Y$ 

650 NEXT L 

660 RESTORE 

700 R=INT(133*(RND(1))) 

710 IF R<7 THEN 700 

720 IF INT(R/7)4»(R/7) THEN 700 
730 FOR L=1 TO R-4 

740 READ Z$ 

750 NEXT L 

760 RESTORE 

800 R=INT(133*(RND(1))) 

810 IF R<7 THEN 800 

820 IF INT(R/7)<>(R/7) THEN 800 
830 FOR L=1 TO R-5 

840 READ A$ 

850 NEXT L 

860 RESTORE 

900 R=INT(133*(RND(1))) 

910 IF R<7 THEN 900 

920 IF INT(R/7)4»(R/7) THEN 900 
930 FOR 1-1 TO R-& 

940 READ ἘΦ 

950 NEXT L 

960 RESTORE 

1008 D=D+1 

1010 1F INT(D/2)=D/2 THEN 1030 
1020 PRINT A$$" "5785" "3Y$:GOTO 1040 
1030 PRINT B$;" ";A$;" "1781" "үф 
1840 IF INT(D/2)=D/2 THEN 1060 
1050 PRINT X$3" "Ыф" "3483",":GOTO 1070 
1050 PRINT X$;" "juez" "zyggn,n 
1070 IF INT(D/2)-D/Z THEN PRINT 
1080 FOR C=1 TO 100:МЕХТ C 

1090 ТЕ 0412 THEN 300 

1100 D=0:PRINT :PRINT :GOTO 200 


Sample Run 
SAD TINY CATS 
GLOW SMOOTHLY NEAR A TREE, 


THE LIVELY GREEN MARBLES 
PLOW HAPPILY FOREVER. 
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TIRED TINY STATUES 

FIGHT MERRILY ON THE HILL, 
WHEN TIGHT YOUNG PRIESTS 
RUN WETLY ABOVE THE CLOUDS. 


FRIENDLY BLUE LOVERS 
FIGHT NOISELY NEAR A TREE, 
WHILE FOLDED RED MEN 
TALK NOISELY TO THE DEATH. 


LIVELY LOUD FOLKS 

PASS WELL BEHIND THE BARN, 
ADS HARD TIMELY DOGS 

EAT SMARTLY BEHIND THE PARN. 


CRUNCHY MEAN FLOWERS 

GLOW HAPPILY BEHIND THE BARN, 
WHILE PRETTY POOR GIANTS 
TURN BRIGHTLY IN THE NIGHT. 


TIGHT POOR FARMERS 

TALK SMARTLY DOWN THE TUBES, 
WHEN WEALTHY GLOWING DOGS 
PASS PRIGHTLY IN THE BOX. 


Sample Run 


GOLDEN OLD BAGS 

FOLLOW WETLY IN THE GROUND, 
THE TIRED GREEN BUTTONS 

FLASH MERRILY BEHIND THE BARN. 


FOLDED BLUE PRIESTS 

PLOW RUGGEDLY AS THEY AGE, 
THE WEALTHY BLUE LOVERS 
PASS TOUGHLY IN THE BOX. 


WEALTHY BULKY FARMERS 

LAST MERRILY FROM A MOUNTAIN, 
WHILE JOLLY RED LOVERS 

LAST WHOLEHEARTEDLY BEHIND THE 


BARN. 
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HARD TINY FOLKS 

TALK BRIGHTLY AS THEY AGE, 
THE GOLDEN YOUNG BUTTONS 

FIGHT HAPPILY IN THE POX. 


FRIENDLY ROUND DOGS 

WEAR LOOSELY FROM THE VALLEY, 

AS HATRY LOUD LOVERS 

GLOW WHOLEHEARTEDLY IN THE NIGHT. 


PRETTY TIMELY BODIES 

GRIND FREELY IN THE GROUND, 
AS FRIENDLY SILVERY LOVERS 
LIFT MERRILY IN THE WIND. 


High/Low Bowling Score 


Suppose you bowl with a group of friends, each with a 
different score or set of scores? This program accepts their 
names and scores and sorts out the persons with the highest 
and the lowest bowling scores. 


To complete data entry, simply press RETURN without 
data. That prompts your computer, via lines 140 and 150, 
to print the lowest score and the highest score. 

Naturally, this kind of sorting could be applied to any 
game with ranges of scores among different players. 


Program Listing 


10 PRINT "}":REM SCREEN CLEAR 

20 DIM МФС20),1М5(209 ,НМФС203,КФС1) 
30 PRINT "3":REM BUZZER 

42 PRINT "NAME:",:INPUT N$ 


50 IF N¢="" THEN 120 
60 PRINT "SCORE:",:INPUT 8 
70 Х-Х-1 


88 IF X=1 THEN LS-S:LN$-N£$:HS-S:HN$-N$ 
90 IF 5415 THEN LS=S:LN$=N$ 
100 IF S:HS THEN HSzS:HN£$zN$ 
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110 GOTO 40 

120 PRINT :PRINT 

130 PRINT "3":REM BUZZER 

140 PRINT "LOWEST SCORE:",LN$,LS5 
150 PRINT "HIGHEST SCORE:",HN$,HS 
160 PRINT :PRINT :PRINT :PRINT 

170 PRINT "TO DO MORE, PRESS RETURN" 
18@ INPUT K$ 

190 CLR :GOTO 10 


Sample Run 


RUN RETURN 
NAME: 

JOHN RETURN 
SCORE: 50 


NAME: 

SUSAN RETURN 
SCORE: 

89 RETURN 


NAME: 

SCOTT RETURN 
SCORE: 

72 RETURN 


NAME: 

BOB RETURN 
SCORE: 

67 RETURN 


NAME: 

TOM RETURN 
SCORE: 

87 RETURN 


NAME: 
RETURN 


LOWEST SCORE: JOHN 50 
HIGHEST SCORE: SUSAN 89 
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Random Number 
Quality Checker 


Ever wonder just how unintentional, haphazard, or 
unrelated your random numbers are? This program rein- 
forces your confidence in the pseudorandom number 
generator in the computer. 

It causes the machine to generate 100 numbers bet- 
ween zero and 100 and reports how many are above 49 and 
how many are below 50. 

Just for fun, we've thrown in an executive decision 
maker. That is, the board of directors voted 47 yes, 53 no. 
Can you imagine it? 


Program Listing 


10 PRINT "}" REM CLEAR SCREEN 
20 CLR 

за FOR L-1 То 100 

40 X=INT(10@00*(RND(1))) 
30 IF X50 THEN Y=Y+1 
50 IF X>47 THEN N=N+1 
7@ NEXT L 

80 PRINT "YES:",Y 

90 PRINT "NO:",N 

100 PRINT 

110 GOTO 20 


Sample Вип 

YES: 48 
мо: 2 
YES: 58 
МО: 2 
YES: 52 
мо: 50 
YES: 54 
МО: 46 
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YES: 43 


МО: 57 
YES: 32 
ΝΟ: 47 
Super 5101-0 


As with all the programs used as examples in this 
book, simply type this one in and RUN it. The computer 
will display, on your video screen, the name of this 
program and some simple instructions. 

To simulate pulling the slot machine's lever arm, 
press the RETURN key on the keyboard. 


Program Listing 


18 PRINT "}"=REM CLEAR SCREEN" 

«Ὁ DIM A$%$(1),B$(1),C$001) 

30 DIM р%(1),Е%(1),К%%1) 

430 GOSUP 500 

Эд PRINT :PRINT 

ей GOSUP 200 

70 PRINT "хэхэ KERKE αφ X34XX 36 36363646" 
за PRINT н + "Аф" ж ж "?“Р%і" x ж "СФЕ" 

х + "D$" х X "SESS" x!" 

90 PRINT "хээ ккккк XX XXX KXXXJX EXILE" 
100 PRINT PRINT :PRINT 

110 PRINT "TO PULL. LEVER, PRESS RETURN" 
120 INPUT K$ 

130 CLR :00ТО 10 
гай GOSUR 480 
210 A$=CHRE(X) 
220 GOSUP 400 
230 ВФ-СНВФ%Ф(Х) 
249 GOSUP 400 
250 C$-CHRS$X) 
260 GOSUR 400 
270 D$-CHRS$(GX) 
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280 GOSUPR 400 

290 E$-CHRS$(UX) 

320 GOTO 460 

400 R=INT(S*(RND(1))) 
418 IF R«1 THEN 400 
420 IF R=1 THEN X=@ 
430 IF R=2 THEN X=14 
440 IF R=3 THEM X=96 
450 IF R=4 THEN X=123 


460 RETURN 
500 PRINT ” хн" 
210 PRINT " * ATARI SLOT-O ж" 
520 PRINT " Е ЗЕ 36: IE IO 364648 46-46 " 
530 RETURN 


Savings Quickie 


Want a quick idea of how much your savings account 
will grow over the years? This program is fast to load and 
speedy to run. 

The computer will ask for initial savings balance, an- 
nual interest percentage rate, and number of years. In 
return, it computes compound interest and displays the 
savings balance at the end of each year in a handy list. 


Program Listing 


18 DIM K$(1) 

20 PRINT "}"=REM CLEAR SCREEN 
38 PRINT "PRESENT SAVINGS BALANCE" 
40 INPUT Е 

50 PRINT "INTEREST RATE" 

60 INPUT I 

78 PRINT "NUMBER OF YEARS" 

80 INPUT Y 

90 FOR L-1 TO Y 

100 Z=Z+1Ix(Z+B)/100 

110 PRINT L,Z+P 

120 NEXT L 

200 FOR A=1 То 4:PRINT NEXT А 
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210 PRINT "TO DO ANOTHER, PRESS RETURN" 
220 INPUT КФ 
230 CLR :GOTO 10 


Sample Run 
RUN RETURN 


PRESENT SAVINGS BALANCE: 
652 RETURN 

INTEREST RATE? 

8 RETURN 

NUMBER OF YEARS? 

11 RETURN 


704.16 

760. 4928 
821. 332224 
887. 038801 
758. 001905 
1034. 642057 
1117.413421 
1206.806494 
130.5. 351013 
1407.619094 
1520.2286z1 


OU Oj) © 


оч 
- Q 


Draw Straws 


Here's one of man's oldest decision makers. Several 
straws are broken off to the same length except for one 
extra-short straw. The length of all straws is concealed 
and each person draws a straw. The person drawing the 
shortest straw "wins." That is, he is selected by the luck 
of the draw. 

Now, your computer can provide a fast and easy 
drawing where no straws are available. It does all the work 
for you by assigning electronic straws randomly to each 
person. Those straws are numbers. The shortest straw, or 
lowest number, “wins.” 
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Program Listing 


10 PRINT "3":REM CLEAR SCREEN 

20 DIM PB$%*$(6), ChX6) D$(6),K$(1) 

30 FOR 151 TO 11:PRINT "*";:NEXT L 
40 PRINT 

30 PRINT "DRAW STRAWS” 

50 FOR ісі TO 11:PRINT "*#" :МЕХТ L 
7@ PRINT :PRINT 

80 PRINT "PLAYER 1: "34: 1ЇМРОТ BS 

90 PRINT "PLAYER 2: "J: INPUT C$ 
100 PRINT "PLAYER 3: "3: INPUT D$ 
110 B=INT(100@%(RND(1))) 

120 L=P 

130 C=INT(100%(RND(1))) 

140 IF C«L THEN L=C 

150 D-INTCiOU*(RNDt12)) 

160 IF D<L THEN L=D 

174 PRINT 

180 PRINT B$:": ",Р; 

190 IF L=B THEN PRINT " ««««" б0ТО 210 
200 PRINT 

210 PRINT СФ": "С; 

220 IF LC THEN PRINT " ««««"160Т0 240 
230 PRINT 

240 PRINT 055": ",D; 

290 IF LzD THEN PRINT " <<<<" 

300 PRINT PRINT :PRINT 

310 PRINT "FOR MORE, PRESS RETURN" 
3420 INPUT K$ 

330 CLR :GOTO 10 


Funny similes 


Give these newfangled gadgets an inch and they'll 
take a mile. In the case of the computer, give it some 
tacky retorts and it will spew out an endless string of 
dumb remarks. 

The fun is in having the computer randomly select 
various words and combine them to make silly sayings. 


30 


The random number is used to match the words into 
similes. 


Program Listing 


10 PRINT "":REM CLEAR SCREEN 

20 DATA SHORT, TALL,FAT,LEAN, CLEAN 
30 DATA DIRTY, GOOD, BAD, HAPPY, SAD 
40 DATA GREEN, RED, YELLOW, BLUE, UGLY 
3@ DATA PRETTY, SHARP, DULL, TACKY, NATTY 
50 DATA STRONG, WEAK, MEAN, NICE, DUMP 
70 DATA GNOME, TREE, PIG, BOX, CLOCK 
82 DATA TURKEY, GOLD, APPLE, DOG, ROOKIE 
90 DATA ВЕЕТ, BIRD, SKY,SIN, PEACH 
100 DATA TACK, RAZOR, PIN, PLUG, BULL 
110 DATA WORM, LION, LAMB, PUPPY, ОХ 
200 DIM E$(10),D$(10),E$(10),K$(1) 
210 PRINT "}":REM BUZZER 

220 PRINT "WHOM ARE WE DESCRIBING" 
230 INPUT P$ 

300 T=INT(1@Q*(RND(1))) 

10 IF Т<1 OR T>25 THEN 300 

320 FOR L=1 TO T 

330 READ D$ 

340 NEXT L 

35@ RESTORE 

400 T=INT(10@*(RND(1))) 

410 IF T<26 OR T>50 THEN 400 

ай FOR ісі TO T 

430 READ E$ 

440 NEXT L 

450 RESTORE 

300 PRINT "}":REM BUZZER 

310 PRINT P$;" IS "408:" AS A "SES 
600 FOR L=1 TO B:PRINT :NEXT L 

610 PRINT "FOR ANOTHER, PRESS RETURN" 
620 INPUT K$ 

630 CLR :GOTO 19 
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Programs 
for the classroom 


Foreign Capitals 


Here's a learning quiz we'll bet you haven't seen 
anywhere else. This program tests your knowledge of 
foreign countries. The more you play, the more you learn! 

You must tell the computer the correct name of the 
capital of the country it presents. And you must spell the 


name of that city correctly. 


What is the capital of Egypt, Poland, Turkey, New 
Zealand, Bolivia or Afghanistan? It can be very tough! 

Want to change to different countries? Change the 
DATA lines 20 to 540. Be sure to put a comma between 


country and capital in each DATA line. 


Program Listing 


PRINT 
DIM 55(20),08(20),048(20) 


ΣΣ REM CLEAR SCREEN 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


AFGHANISTAN, KABUL 
ALBANIA, TIRANA 
ALGERIA, ALGIERS 
ARGENTINA, PUENOS AIRES 
AUSTRALIA, CANBERRA 
AUSTRIA, VIENNA 
BAHRAIN, MANAMA 
BANGLADESH, DACCA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


BELGIUM, BRUSSELS 
BOLIVIAsLA PAZ 
BRAZIL, BRASILIA 
BULGARIA, SOFIA 

BURMA, RANGOON 

CHILE, SANTIAGO 
COLOMBIA, BOGOTA 

CUBA, HAVANA 
CZECHOSLOVAK IA, PRAGUE 
DENMARK, COPENHAGEN 
EGYPT; CAIRO 

FINLAND, HELSINKI 
FRANCE, PARIS 

GERMANY EAST,EAST BERLIN 


240 


260 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


PRINT 
PRINT 


GERMANY WEST, BONN 


GREECE, ATHENS 


HAITI, PORT-AU-PRINCE 
HUNGARY , BUDAPEST 
ICELAND, REYKJAVIK 
INDIA,NEW DELHI 
I RAN, TEHRAN 
I TAL Y , ROME 
JAPAN, TOKYO 
КОНАТТ, KUWAIT 
LIBYA, TRIPOLI 
MEXICO,MEXICO CITY 
NEPAL , KATHMANDU 
NEW ZEALAND, WELL INGTON 
NORWAY, OSLO 
OMAN, MUSCAT 
PERU,LIMA 
POLAND, WARSAW 
QATAR, DOHA 
КОМАМТА, BUCHAREST 
SPAIN, MADRID 
SUDAN, KHARTOUM 
SWEDEN, STOCKHOLM 
SWITZERLAND, BERN 
TURKEY; ANKARA 
U.S.S.R. , MOSCOW 
UNITED KINGDOM, LONDON 
VENEZUELA, CARACAS 
YUGOSLAVIA, BELGRADE 
ZATRE,KINSHASA 
ZAME IA, LUSAKA 
"зээ. FOREIGN CAPITALS κκκκκ" 
ў HOW MANY САМ YOU NAME?" 


К<1 МТ 106 (ВМО(1))) 


IF R“1 THEN 560 


IF INT(R/Z)-R/z THEN RzR-1 
FOR L=1 TO R 


READ 
NEXT 


PRINT 
PRINT 


READ 


St 
L. 

: PRINT 

" COUNTRY: 
C$ 


35 


650 PRINT "WHAT IS THE CAPITAL" INPUT D$ 
660 IF D$=C$ THEN PRINT "RIGHT" :GOTO 680 


670 PRINT "WRONG" 

580 PRINT "CAPITAL OF "5584" IS "το 
690 RESTORE 

700 PRINT :PRINT 

710 GOTO 560 


Areas 


Circle. Ellipse. Parabola. Sphere. Square. Rectangle. 
Triangle. Name your shape. This program will compute its 
area. Surface area in the case of the sphere. Answer the 
computer's questions and it will give you the answer you 
need, in square units of measure. If you use inches, the 
answer will be in square inches. Put in yards and get 
square yards. Meters, get square meters. Please don't mix 
units in any one computation. 


Program Listing 


10 PRINT "}":REM CLEAR SCREEN 
20 DIM 8810) 

3Q PRINT "SHAPE: "; 

АЙ INPUT S$ 

45 PRINT 

50 IF S$="CIRCLE" THEN 100 

55 IF S$-"ELLIPSE" THEN 200 
5Q IF S$="PARABOLA" THEN 300 
55 IF S$="SPHERE" THEN 400 

72 IF S$-"SGUARE" THEN 500 

75 IF S$="RECTANGLE" THEN 500 
80 IF S$-"TRIANGLE" THEN 600 
90 PRINT :GOTO 30 

100 PRINT "RADIUS = "; 

110 INPUT R 

120 А=3.14*(В^2) 

130 GOTO 700 

200 PRINT "MAJOR AXIS = "; 


210 INPUT 4 

220 PRINT "MINOR AXIS = "3 
230 INPUT М 

240 А=0. 73545 3%N 

¿34M GOTO 700 


300 PRINT "BASE = n"; 
318 INPUT E 
320 PRINT "HEIGHTH = "; 


330 INPUT H 
340 A=(2/3)*(PxH) 

350 GOTO 700 

400 PRINT "RADIUS = "; 
410 INPUT В 

420 Ас2.14жаж(Н АЗ) 

430 GOTO 700 

500 PRINT "LENGTH = "; 
510 INPUT L 

520 IF S$=" SQUARE" THEN A-LxL:GOTO 700 
530 PRINT "WIDTH = "3 
540 INPUT W 

550 ΑΞΙ жи 

560 GOTO 700 

600 PRINT "BASE = "; 
610 INPUT Ë 

620 PRINT "HEIGHTH = *; 
630 INPUT H 

640 A=0.5*B#H 

700 PRINT 

710 PRINT "AREA = "5А 
720 PRINT 

730 GOTO 30 


Sample Run 


SHAPE: 
TRIANGLE 
BASE = 

55 

HEIGHTH = 
22 

АВЕА - 605 
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SHAPE: 
ELLIPSE 
MAJOR AXIS = 
19 

MINOR AXIS 


| 


AREA = 208.9164 


Photography: Flash Exposure 


Use your computer to help take better pictures! 

The most important factor in pictures shot with flash is 
the distance from your flash to the subject. Subjects 
which are close to you will receive a lot of light while sub- 
jects farther away will receive less light. 

Check your data sheet for the film you are using. Look 
for the film guide number. Next, make an estimate of the 
distance in feet from the flash to your subject. 

This program determines the proper f/stop setting for 
your camera. By the way, if the computer tells you to use 
an flstop setting between two f/numbers available on your 
camera, set your lens opening at the nearest f/number or 
halfway between the two, whichever is closest. 

For example, suppose your film has a guide number of 
80 and you estimate the flash-to-subject distance at 10 
feet. Use f/8 on your lens. 


Program Listing 


18 DIM K$(1) 

20 PRINT "}":REM CLEAR SCREEN 

JO PRINT "}":REM BUZZER 

40 PRINT "PHOTOGRAPHY: FLASH EXPOSURE" 
30 PRINT :PRINT 

6@ PRINT "WHAT IS FILM GUIDE NUMBER" 
7а INPUT G 

88 PRINT "FLASH-TO-SUBJECT DISTANCE" 
90 INPUT D 

100 F=G/D 

110 PRINT :PRINT 
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120 PRINT "}":REM BUZZER 

130 PRINT "GUIDE NUMBER: "ба 

140 PRINT "DISTANCE: "iD. FEET" 
150 PRINT "SHOOT AT: Е/" SF 

150 FOR ігі TO 6:PRINT :NEXT L 

170 PRINT "FOR MORE, PRESS RETURN" 
180 INPUT K$ 

190 CLR :GOTO 10 


Sample Run 


PHOTOGRAPHY: FLASH EXPOSURE 
WHAT IS FILM GUIDE NUMBER 


80 RETURN 
FLASH-TO-SUBJECT DISTANCE 
10 RETURN 

GUIDE NUMBER: 80 
DISTANCE: 10 FEET 
SHOOT AT: F/8 


Photography: Close Ups 


For copying and other close-up work with your camera, 
you extend the camera lens by using bellows or extension 
tubes. in doing that, you must allow for an effective in- 
crease in the normal f/number or your picture will be 
underexposed. 

You make such an exposure compensation whenever 
the subject distance is less than eight times the focal 
length of your lens. 

This program provides a convenient means of determin- 
ing the effective finumber. For example, if the focal 
length of your camera is 50mm and the lens-to-film 
distance (focal length plus extension from infinity posi- 
tion) is 100mm, and the normal f/stop would be 22, the 
corrected stop would be 7/77. 

Or, if you are using a 25mm lens, with 50mm lens-to- 
film distance, a normal f/stop of 8 should be corrected to 
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fl4. Be sure to keep both focal length and distance in 
either mm or inches. Don't mix apples and oranges. 


Program Listing 


DIM КФС1) 

PRINT "}"=REM CLEAR SCREEN 

PRINT "}"SREM BUZZER 

PRINT "PHOTOGRAPHY: CLOSE UPS" 
PRINT = PRINT 

PRINT "WHAT IS NORMAL F/ NUMBER" 
INPUT F 

PRINT "LENS-TO-FILM DISTANCE IN MM" 
INPUT D 


100 IF D=@ THEN 80 


110 PRINT "LENS FOCAL LENGTH IN MM" 
120 INPUT L 

130 N=Fx*L/D 

200 PRINT :PRINT 

210 PRINT "}":REM BUZZER 

220 PRINT "EFFECTIVE Е/МОМВЕК IS F/"5N 
300 FOR ісі ТО &:PRINT :NEXT L 

318 PRINT "FOR MORE, PRESS RETURN" 
320 INPUT K$ 

330 CLR :GOTO 10 

Sample Run 

PHOTOGRAPHY: CLOSE UPS 


WHAT IS NORMAL F/ NUMBER 


22 


RETURN 


LENS-TO-FILM DISTANCE IN ММ 


100 


RETURN 


LENS FOCAL LENGTH IN MM 


50 


RETURN 


EFFECTIVE F/ NUMBER IS F/11 
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Math Flasher 


Here's the basic routine (no pun intended) for an educa- 
tional flash-card program. This one is bare-bones, no 
frills. You can dress it up with more colorful right-n-wrong 
messages, opening and closing billboards, etc. You could 
even make it keep score and present a "batting average" 
at the end of its run. 

Here's how it works: 

Lines 10- 90 determine which type of math you wish to 
do. Lines 50- 80 move program action to the appropriate 
group of lines further along in the program. 

Lines 200-280 handle addition. Lines 300-390, subtrac- 
tion. Lines 400-480, multiplication. Lines 500-590, divi- 
sion. 

For example, look at lines 200-280. Two separate ran- 
dom numbers are generated (lines 200 and 210). The ran- 
dom numbers are labeled P and Q. At line 220, the pro- 
gram uses P and Q and asks you to add them together. 
Line 230 waits for and accepts your answer. 

Line 240 clears old, unwanted words from the screen to 
reduce confusion. At line 250, the program makes the 
right or wrong decision, using the powerful 
ΙΕΙΤΗΕΝ statement. Line 270 prints the correct 
answer. 

Program execution for subtract (lines 300-390), multiply 
(lines 400-480), and divide (lines 500-590), are similar ex- 
cept for line 320 in subtraction and line 520 in division. 

We make the assumption that it is not desirable to have 
negative numbers as results of subtraction. That is, we 
want only subtraction problems with results of zero, one, 
two, three, or higher. We want no problems which would 
result in answers below zero such as -1, -2, -3, and so 
forth. So, line 320 tests P and Q, before presenting the 
problem on the screen. If they will resuit in a negative- 
number answer, then the program returns to lines 300-310 
for two new numbers. 

In division, we want whole-number answers. That is, we 
want answers like 2 or 11 or 26. Not answers like 1.81 or 
9.75 or 21.3343. So, line 520 tests P and Q to make sure 
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their dividend will be a whole number. If not, the program 
goes back to line 500 and line 510 for two new numbers. 


Program Listing 


10 DIM B$(8) 

15 PRINT "}":REM CLEAR SCREEN 

2@ PRINT "DO YOU WANT To" 

25 PRINT "ADD":PRINT "SUBTRACT" 

30 PRINT "MULTIPLY":PRINT "DIVIDE" 

ай PRINT :PRINT "WHICH": INPUT РФ 

50 IF B$="ADD" THEN 200 

bð IF P$="SUBTRACT" THEN 300 

70 IF B$-"MULTIPLY" THEN 400 

80 IF P$-"DIVIDE" THEN 500 

90 GOTO 25 

200 P=INT(10@*¿(RND:(1))) 

210 Q=INT(I0*(RND(1))) 

220 PRINT :FRINT "ADD "ЗЕР; PLUS "τῷ 
230 INPUT R 

240 PRINT ")" IREM CLEAR SCREEN 

250 IF В-Р+0 THEN PRINT "RIGHT" б ОТО 270 
250 PRINT "WRONG" 

270 PRINT Ps" PLUS "303" EQUALS "3P+0 
280 FOR LL=1 TO 1000:NEXT LL 

290 PRINT :GOTO 200 

300 Р=ІМТ 1 СВМО(1))) 

310 Q=INT(10%(RND:(1))) 

32M IF P-@<@ THEN 300 

325 PRINT 

330 PRINT "SUETRACT "303" FROM "jP 
340 INPUT R 

350 PRINT "}":REM CLEAR SCREEN 

36@ IF RzP-G THEN PRINT "RIGHT" бОТО 380 
370 PRINT "WRONG" 

384 PRINT P3" MINUS "305" EQUALS ":Р-о 
385 FOR LL=1 То 1000:NEXT LL 

390 PRINT :GOTO 300 

ада P=INTCI@*®(RND(1))) 

410 Q=IHT(10@%(RND:(1))) 

415 PRINT 

420 PRINT "MULTIPLY "3P5" TIMES "iĝ 


INPUT R 

PRINT "+" :ВЕМ CLEAR SCREEN 

IF RBzP*$ THEN PRINT "RIGHT":GOTO 470 
PRINT "WRONG" 

PRINT Рі" TIMES "505" EQUALS ";Px*G 
FOR LL=1 То 1000:NEXT LL 

PRINT :GOTO 400 

P-INTCIOUXIGRND(12)) 

ос МТ. 18» (RNDC1))) 

IF Р/Ә«<ОІМТІР/Ә) THEN 500 

PRINT "DIVIDE "ҮР" BY "τῷ 

INPUT R 

PRINT "3":REM CLEAR SCREEN 

IF R=P/Q THEN PRINT "RIGHT":GOTO 580 
PRINT "WRONG" 

PRINT Р "Г" "=" урла 

FOR LL-1 TO 1000:NEXT LL 

PRINT αὐτὸ 500 


Exam Score Sorting 


The final number scores of a large number of test 


results can be categorized and thereby cut down into a 
smaller quantity of numbers easily. 


This program accepts exam scores and divides them 


into ranges we have labeled A, B, C, D and F. The program 
looks for test scores in a range of zero to 100. The predeter- 
mined grade ranges are F=0 to 59; D=60 to 69; C=70 to 79; 
B-80 to 89; and A=90 to 100. 


You key in the letter X to break the entry cycle. Lines 


100 to 140 sort the scores into letter grades A through F. 
Lines 150 to 170 sort highest and lowest scores. Line 200 
finds the mid-range and average scores. 
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Program Listing 


PRINT 


“+ š REM CLEAR SCREEN 


CLR :DIM G#(3),RT#(1) 


PRINT "Э” КЕМ BUZZER 
PRINT "ENTER A GROUP OF SCORES," 
PRINT "FROM ZERO TO 100," 
PRINT "ONE AT TIME" 
PRINT 
PRINT "ENTER X AFTER LAST SCORE" 
PRINT :PRINT "SCORE:" 
INPUT Gf 
IF G$-"X" THEN 200 
G-VAL (G$) 
N=N+1 
IF G«60 THEN F=F+1:GOTO 150 
IF а<70 THEN D=D+1:GOTO 150 
IF 6:80 THEN C=C+1:GOTO 150 
ЇЕ 6590 THEN B=B+1:GOTO 150 
A=A+1 
IF N=1 THEN | за: Нео 
IF б< THEN L=G 
IF G+H THEN На 
ос5+0 
GOTO 60 
P=5/N 2 M=L+1( (H-=L)/2) 
PRINT "}":=REM CLEAR SCREEN 
PRINT "A TOTAL OF "3N3" SCORES" 
PRINT "RANGING FROM "51.1" TO "3H 
PRINT "MID-RANGE SCORE IS "3M 
PRINT "AVERAGE SCORE IS ";P 
PRINT 
PRINT "TOTALS FOR EACH LETTER:" 
PRINT "A: "3A 
PRINT "В: "В 
PRINT "C: "3C 
PRINT "D: "3D 
PRINT "Е: "Е 
PRINT :PRINT :PRINT 
PRINT "TO DO MORE, PRESS RETURN" 
INPUT КТФ 
GOTO 10 


plug 


Astronomy 
Lightyears/Distance Conversions 


Starlight, 
Starbright, 

І wish Г тау, 

I wish I might, 
Know the distance 
To your light. 


For students of astronomy everywhere, here's how to 
your computer into your hobby: use the machine to 


discover distances across the Universe! 

This program converts lightyears to kilometers or 
kilometers to lightyears or lightyears to miles or miles to 
lightyears. It's hard to visualize distances in lightyears. 


Run 
vast 


this program and you'll be better able to grasp the 
expanse of the Cosmos with your mind. 


Of course, all distances are approximate. We use 
365.86 days per year and, thus, 9.4830912x10'?km/ly or 
5.892792872х1012тіЛу. 


Program Listing 


PRINT ";":REM CLEAR SCREEN 

DIM К (1) 

PRINT :PRINT 

FOR ісі TO ЗӨ:РВЇМТ "+"; : МЕХТ L 

PRINT 

PRINT "LIGHTYEARS DISTANCE CONVERSION" 
FOR L=1 TO 32:PRINT "+"5:<NEXT L 

PRINT :PRINT 

PRINT "YOUR CHOICES ARE:" 

PRINT "(1) LIGHTYEARS TO KILOMETERS" 
PRINT "(2) LIGHTYEARS TO MILES" 
PRINT "(3) KILOMETERS TO LIGHTYEARS" 
PRINT "(4) MILES TO LIGHTYEARS" 
PRINT :PRINT "WHICH CONVERSION: "5 
INPUT C 

IF C«1 OR 094 THEN Ва 

IF С>2 THEM 400 
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This mind bender tests your 
geographic locations of cities and towns in the United 
States. These are special places since, in each case, they 
are the town nearest to the geographic center of its state. 

In other words, Columbus happens to be almost ex- 
actly in the center of Ohio. But which state has Challis at 
its center? Or Lewistown? Or Oklahoma City? (Well, some 


PRINT "3" REM BUZZER 
PRINT "LIGHTYEARS: "; 
INPUT L 
K=L*(?%?.4830912*(10412)) 
M-L*(5,.89279287*(10^12)) 


IF ο THEN 320 

PRINT 

PRINT "KILOMETERS = "5К 
PRINT :PRINT 


PRINT "FOR MORE, PRESS RETURN" 
INPUT КФ 


CLR :GOTO 10 

PRINT 

PRINT "MILES = "3 
GOTO 280 

PRINT ΠΕΜ BUZZER 


IF C-4 THEN 430 

PRINT "KILOMETERS: "i 
INPUT K 
-К/(9,483091284(10512)) 
РЕТМТ 


PRINT "LIGHTYEARS = "3 
GOTO 280 

PRINT "MILES: "5 

INPUT M 

L=M/(5.89279287* (18412) ) 


GOTO 450 


State Geographic Centers 


may be obvious!) 
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knowledge of 


You not only learn a lot from running this program 
but you have a barrel of fun. Talk about trivia! 


Program Listing 


10 PRINT ";":REM CLEAR SCREEN 
13 DIM 55(20),08(20),08(20) 

20 DATA CLANTON, ALABAMA 

30 DATA MT. MCKINLEY, ALASKA 

40 DATA PRESCOTT, ARIZONA 

5@ DATA LITTLE ROCK, ARKANSAS 

560 DATA MADERA, CALIFORNIA 

70 DATA PIKES РЕАК, COLORADO 

80 DATA EAST BERLIN, CONNECTICUT 
90 DATA DOVER, DELAWARE 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


BROOKSVILLE, FLORIDA 
MACON, GEORGIA 

MAUI ISLAND, HAWAII 
CHALLIS, IDAHO 
SPRINGFIELD, ILLINOIS 
INDIANAPOLIS, INDIANA 
AMES, IOWA 

GREAT BANK, KANSAS 
LEBANON, KENTUCKY 
MARKSVILLE, LOUISIANA 
DOVER-FOX CROFT, MAINE 
DAVIDSONVILLE , MARYLAND 
WORCESTER, MASSACHUSETTS 
CADILLAC, MICHIGAN 
BRAINERD, MINNESOTA 
CARTHAGE , MISSISSIPPI 
JEFFERSON CITY,MISSOURI 
LEWISTOWN, MONTANA 
BROKEN BOW, NEBRASKA 
AUSTIN, NEVADA 
ASHLAND. NEW HAMPSHIRE 
TRENTON, NEW JERSEY 
WILLARD, NEW MEXICO 
ONEIDA,NEW YORK 
SANFORD, NORTH CAROLINA 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


PRINT 
PRINT 


MCCLUSKY,NORTH DAKOTA 
COLUMBUS, OHIO 
OKLAHOMA CITY, OKLAHOMA 
PRINEVILLE, OREGON 
PELLEFONTE, PENNSYLVANIA 
CROMPTON, RHODE ISLAND 
COLUMBIA, SOUTH CAROLINA 
PIERRE, SOUTH DAKOTA 
MURFREESBORO, TENNESSEE 
BRADY, TEXAS 
MANTI,UTAH 
ROXBURY, VERMONT 
BUCK INGHAM, VIRGINIA 
WENATCHEE , WASHINGTON 
SUTTON,WEST VIRGINIA 
MARSHFIELD, WISCONSIN 
LANDER, WYOMING 
"FOR HOW MANY STATES" 
"CAN YOU NAME" 


PRINT "THE GEOGRAPHICAL CENTER 7" 
R=INT(100*(RND(1))) 

IF R41 THEN 540 

IF INTCR/ZI=R/Z THEN R=R-1 

FOR L=1 TO R 


READ S$ 

NEXT L 

PRINT :PRINT 

PRINT "WHICH STATE HAS ITS" 
PRINT "GEOGRAPHIC CENTER NEAR" 
PRINT 54 

READ C$ 

INPUT D$ 

PRINT 

IF C$-D$ THEN PRINT "RIGHT":GOTO 698 
PRINT "WRONG" 

PRINT "THE CENTER OF "508 
PRINT "IS "554 

RESTORE 

PRINT :PRINT 

GOTO 540 


Volumes 


Cones. Cubes. Cylinders. Prisms. Pyramids. 
Spheres. Name your object. This program computes the 
volume and displays it in cubic units. 

Put in inches, get cubic inches. Put in feet, get cubic 
feet. Yards, get cubic yards. No mixing units in any one 
calculation. Cylinder is right circular. 


Program Listing 


10 PRINT "3":REM CLEAR SCREEN 
20 DIM X$(10) 
30 PRINT "OBJECT: "; 


Өй IF ХФ=" СОМЕ" THEN 100 

65 IF x$="CUPE" THEN 200 

70 IF X$="CYLINDER" THEN 300 
75 IF X$="PRISM" THEN 400 
86 IF X$=" PYRAMID" THEN 100 
85 IF X$="SPHERE" THEN 500 
90 IF X$="PRISM" THEN 400 
95 PRINT :6GoTO 30 


100 PRINT "AREA = "3 
110 INPUT A 
120 PRINT "HEIGHTH = "5 


130 INPUT H 

140 V=(A*H) /3 

150 GOTO 6008 

200 PRINT "LENGTH = "; 
210 INPUT L 

220 PRINT "WIDTH ="; 
2340 INPUT W 

240 PRINT "HEIGHTH = "5 
25@ INPUT H 

260 V=L ΚΗΧΗ 

270 GOTO сай 


300 PRINT "RADIUS = "5 
310 INPUT R 
IZA PRINT "HEIGHTH = "; 
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330 INPUT H 

440 V=3.14*2*R*H 
350 GOTO 600 

400 PRINT "AREA = 
410 INPUT A 

320 PRINT "HEIGHTH 
430 INPUT H 

дай V=A#H 

450 GOTO 600 

300 PRINT "RADIUS 
310 INPUT R 


" а 
ч 


520 V-((3.14*4*(R^3))/3 


520 PRINT 
510 PRINT "VOLUME 
828 PRINT :GOTO 30 


Sample Run 


OBJECT: 
PRISM 


HEIGHTH - 
18 
VOLUME - 1278 


OBJECT: 
CUBE 


HEIGHTH - 
24 
VOLUME = 2496 


HEIGHTH = 
66 
VOLUME = 1210 
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"EN 


Event Timer 


Place your computer in a corner and let it time your next 
chess match. Three-minute egg. Final exam. 

The computer asks how many minutes you want for the 
event you are timing, and then it sounds a bell when the time 
has passed. 

You can calibrate the clock by changing the value of SP 
in line 10. A larger number will slow down the clock. A 
smaller value for SP will speed up the clock. As you can see 
we have started with an SP value of 8. 


If you want to time an event of less than one minute, use 
a decimal. For instance, when you wantto time a 30-second 
event, respond to the computer's inquiry with .5 or for 45 
seconds key in .75. Use .17 for 10 seconds; .25 for 15 
seconds. 


Program Listing 


SPzB:DIM S*(1),T*#(1) 
PRINT "}":REM CLEAR SCREEN 
PRINT "EVENT TIMER":PRINT 
PRINT "HOW MANY MINUTES" 
PRINT "TO THE END OF THE EVENT" 
INPUT LT 
PRINT 
PRINT 
INPUT 
PRINT 
C=G+1 
IF C>(SP#LT#6@) THEN 300 
MN== INT (C/SP/60) 
SC=INT((C/SP)— (60%*MN) ) 
PRINT ММ;" MINUTES "1505" 
GOTO 110 


"TO START TIMING, 
5% 
"3": REM CLEAR SCREEN 


PRESS RETURN" 


SECONDS" 


PRINT 
PRINT 
PRINT 
PRINT 
FOR L 
PRINT 
INPUT 
CLR : 


"}" SREM CLEAR SCREEN 

"JF" = REM BUZZER 

"TIME IS UP" 

1.13" MINUTES HAVE PASSED" 

=1 TO 10:PRINT :NEXT L 

"TO TIME AGAIN, PRESS RETURN" 
T$ 
GOTO 10 
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Programs for 
the business person 


Profit Estimator 


How much cash flow will | generate if | sell 100 
thingamabobs? A question faced everyday in the 
business office. Whether you sell large lots at wholesale, 
small quantities across the retail counter, or individual 
items via mail order, this program will give you a quick 
estimate of expected cash flow and potential profits. It 
allows fast comparisons when quick decisions are need- 
ed. 

The computer asks you questions about the quantity of 
items involved, prices, quantity sold, discounts, etc. Then 
it calculates unit price, unit profit, gross profit, return 
percentages, sales needed to break even, and more, 
depending upon which part of the program you are using. 

The program is divided into four main blocks: 

— ап opening billboard from line 10 through line 210; 

—wholesale computations, lines 1000 to 1320; _ 

—mail order computations, lines 2000 to 2360; 

—ad response computations, lines 3000 to 3590. 

Remember that the program only estimates, it is not ex- 
act. The wholesale, direct-mail, or ad-response manufac- 
turing cost asked by the computer is total, not per unit. 

This program is a useful tool for small business, 
whether a local furniture store, supermarket, wholesaler, 
or regional mail-order house. 


Program Listing 


10 PRINT "}":DIM G$t1) 

20 PRINT "PROFIT ESTIMATOR" 

38 PRINT 

48 PRINT "WHICH TYPE OF SALE:" 
30 PRINT "WHOLESALE Си)" 

60 PRINT "DIRECT MAIL (D)" 

70 PRINT "MEDIA AD RESPONSE tM)" 
80 PRINT 

100 PRINT "3" 

110 PRINT "W, D OR M 2" 

120 INPUT 0% 

130 IF ож-"И" THEN 1000 
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140 
150 
160 
170 
180 
200 
210 
1800 
1010 
1020 
1030 
1048 
1050 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1155 
1160 
11635 
1178 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
280 
1290 
1300 
1310 
1320 
1330 
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IF Q$-"D" THEN 2000 
IF 9$="М" THEN 2000 
PRINT "OKAY, YOU SELECTED "50% 
PRINT "HOWEVER, "%0%%" IS NOT" 
PRINT "A CHOICE. TRY AGAIN." 
PRINT 
GOTO 100 
PRINT ";":CLR :DIM A$(1) 
PRINT "WHOLESALE" 
PRINT "PROFIT ESTIMATOR" 
PRINT 
PRINT "j" 
PRINT "PLEASE ANSWER THESE GUESTIONS" 
PRINT :PRINT "MANUFACTURING COST $" 
INPUT C 
PRINT "2":PRINT "QUANTITY MANUFACTURED" 
INPUT P 
PRINT "3":PRINT "LIST PRICE OF ITEM $" 
INPUT L 
PRINT "":PRINT "TOTAL QUANTITY SOLD" 
INPUT S 
IF 5570 THEN 1160 
GOTO 10 
PRINT "WHOLESALE DISCOUNT %" 
INPUT D 
UC-C/P 


UP-(LxCCT100-D)/1000)0-UC 


W-Lx*xS*xiCc1800-D)/100) 

G=W- (SkUC) 

PRINT "+" 

PRINT 

PRINT Тестте É 

PRINT "UNIT COST IS $";UC 


PRINT "UNIT PROFIT IS $";UP 


PRINT "WHOLESALE GROSS Ф" Ы 

PRINT WHOLESALE PROFIT "56 

PRINT "=== 

PRINT 

PRINT "FOR MORE, PRESS M AND RETURN" 
PRINT 

INPUT АФ 

IF A$="M" THEN 10 


1340 
1350 
2000 
2010 
20:0 
газа 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2408 
2210 
2220 
22230 
2240 
2290 
2260 
2270 
¿280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
23570 
23890 
2390 
3000 


PRINT "THANK YOU," 

END 

PRINT "ІСІН :DIM A$(1) 

PRINT "DIRECT MAIL" 

PRINT "PROFIT ESTIMATOR" 

PRINT 

PRINT "3" 

PRINT "PLEASE ANSWER THESE QUESTIONS" 
PRINT :PRINT "MANUFACTURING COST $" 
INPUT C 

PRINT ">":PRINT "QUANTITY MANUFACTURED" 
INPUT P 

PRINT "3":PRINT "LIST PRICE OF ITEM Ф" 
INPUT L 

PRINT "3" 2PRINT "TOTAL QUANTITY SOLD" 
INPUT S 

PRINT "3":PRINT "NUMBER FLYERS MAILED 7" 
INPUT K 

PRINT "}":PRINT "FLYER PRINTING COST $" 
INPUT R 

PRINT "}" PRINT "POSTAGE COST $" 
INPUT M 

UCzC/P 

J=100*S /K 

T=L*S-—(R+M+UC*S ) 

Мі жб 

PRINT "9" 

РКІМТ 

PRIN, "eee : 

PRINT "DIRECT MAIL” 

PRINT "RETURN IS "335" PERCENT" 

PRINT "DIRECT MAIL GROSS $"3U 

PRINT "DIRECT MAIL PROFIT $";T 

PRINT. "eee " 

PRINT 

PRINT "FOR MORE, PRESS M AND RETURN" 
PRINT 

INPUT АФ 

IF A$-"M" THEN 10 

PRINT "THANK YOU" 

END 

PRINT "3":CLR DIM A$(1) 
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3010 
3020 
3030 
3050 
3050 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3150 
3170 
3180 
3190 
3208 
3210 

220 
3220 
3240 

2530 
3260 
34270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
A360 
A370 
3380 
3390 
3400 
3410 
3420 
3430 
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PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
PRINT 
INPUT 
PRINT 
INPUT 
PRINT 
INPUT 
PRINT 
INPUT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 


IF A$- 
IF A$-"G" 


"RESPONSE TO ADVERTISEMENT" 
"PROFIT ESTIMATOR” 


an 


"PLEASE ANSWER THESE QUESTIONS" 
СРВЇМТ "MANUFACTURING COST $" 
C 
"}" PRINT 
P 
пу" PRINT 
L 
ву" tPRINT 
A 
пу" SPRINT 
I 


"T" 


"LIST PRICE 


пре 
"WHICH DO YOU WANT TO KNOW 7" 
"SALES QUANTITY NEEDED" 

"TO BREAK EVEN (@)" 


"PROFIT FROM SELL ING" 
"A SPECIFIC QUANTITY ҰР)" 


"P OR Ө 
At 
H P" 


29 


THEN 3460 
THEN 3330 


GOTO 3270 


PRINT 
PRINT 


B=INT ( 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 


(C+A)/L +1 
"SELL "3B3" TO BREAK EVEN" 
"INCLUDING COVERING" 

"$"šCs" MANUFACTURING COST" 
"AND $”"34*13" AD CAMPAIGN" 


"FOR MORE, 
A$ 


PRESS M AND RETURN" 


"QUANTITY MANUFACTURED" 
OF ITEM $” 
"AD COST PER INSERTION $' 


"NUMBER OF INSERTIONS 7" 


3440 IF A$="M" THEN 10 

3450 PRINT "THANK YOU" :END 

J460 PRINT :PRINT "QUANTITY SOLD 7" 
4470 INPUT S 

3480 N-SxL 

3474 UC-C/P 

3500 E-SX*L-S5xUC-A*I 

J510 PRINT 

3920 PRINT "e т 

43550 PRINT "ORDERS GROSS IS $";N 

4540 PRINT "DIRECT MAIL PROFIT IS +" Е 
23920. PRINT "зөөн " 

3560 PRINT 

4570 PRINT "FOR MORE, PRESS M AND RETURN" 
3590 INPUT A$ 

3590 IF At="M" THEN 10 

3600 PRINT "THANK YOU" 

4610 END 


Daily Codes 


Businesses everywhere are concerned about security. 
Banks, credit card managers, warehousemen, shipping 
clerks, office managers, all need private daily codes for 
internal use to prevent unauthorized admission to storage 
areas, financial records, private files. 

Now you can use your own computer togenerate 
а set of secret codes, one for each day of the week. This 
program generates a series of pseudorandom numbers and 
displays a table of those numbers alongside names of the 
days of the week. 

The subroutine in lines 200 to 220 generates four-digit 
random numbers. 


Program Listing 


10 PRINT ";":DIM КҮФ‹1) 
га ЗОБОВ 200 
JO PRINT "SUNDAY: "3C: GOSUR 200 
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40 PRINT "MONDAY: ";C:GOSUR 200 


Эд PRINT "TUESDAY: "5 С:0008 200 
50 PRINT "WEDNESDAY:  "$C:GOSUPR 200 
7а PRINT "THURSDAY: "$C: GOSUR 200 
80 PRINT "FRIDAY: "3C0:GOSUR 00 
90 PRINT "SATURDAY: "ac 


100 PRINT :PRINT 

110 PRINT "FOR A NEW SET OF NUMBERS" 
120 PRINT "PRESS RETURN KEY" 

130 INPUT КҮФ 

140 CLR :GOTO 10 

200 C-INTC10000*(RNDC1)2)) 

210 IF C«1000 THEN 200 

220 RETURN 


Invoice Computer 


The computer will ask you for a discount percentage to 
be applied to the invoice; the retail price of goods being 
invoiced; and the quantity of those goods. 

You enter actual percentage. The computer changes 
that to the appropriate decimal vaue. 

Then it will ask if you have other items to be shown on 
the same invoice. If so, it again will get price and quantity 
sold info from you. It will assumethe same discount applies. 

When you tell the computer there are no more items for 
the same invoice, it will compute and display the total. 


Program Listing 


10 DIM IT$(9),Z$(1):GOSUR 600 

20 PRINT "INFO FOR COMPUTING INVOICES:" 
30 PRINT "DISCOUNT PERCENT Z ":INPUT DP 
40 DD-1-0.01*DP 

30 PRINT "THE ITEM SOLD:"*:INPUT ІТФ 

60 PRINT "RETAIL PRICE $ ":INPUT P 

70 PRINT "QUANTITY SOLD:":INPUT Q 

80 C=P*DD: I=C#Q:iT=T+] 


ЭЙ PRINT :РБЇМТ 


"WHOLESALE COST" 


100 PRINT "OF "505" "3IT453"S:2 "y 

110 PRINT :PRINT "MORE SAME INVOICE?" 
120 PRINT "PRESS M AND RETURN" 

130 PRINT "IF NONE, PRESS E AND RETURN" 
140 INPUT Z$ 

150 PRINT :IF Z$="M" THEN 50 

160 IF Z$-"E" THEN 200 

170 GOTO 110 

200 PRINT "3" 

210 PRINT "INVOICE GRAND TOTAL: $";T 
220 PRINT PRINT "TO DO OTHER INVOICES" 
230 PRINT "AT OTHER DISCOUNTS,” 

240 PRINT "PRESS M AND RETURN" 

250 PRINT "TO QUIT, PRESS Q AND RETURN" 
260 INPUT 7% 

270 PRINT :IF Z$="M" THEN CLR :GOTO 10 
280 IF Z$-"G" THEN END 

290 GOTO 220 

300 END 

600 PRINT "}" 

510 PRINT "333-333 3€ 3 3€ 3€ 3€ € 9€ 9€ € 4€ € € 9€ 9€ 

620 PRINT "ж INVOICE COMPUTER ж" 

630 PRINT "33333 06333 3€ C€ X 3€ ЗЕ ЗЕ 4 3€ 3€ 3€ 3€ U 

5640 RETURN 


Hourly Wages 


This handy program computes total hours worked at 
regular pay and number of hours worked at time-and-a-half 
overtime. It then finds gross pay and rounds off to the 
nearest cent. The program knows that overtime starts after 
40 hours. 

The result is a nice chart on the display, after the 
computer asks only three questions. 

You can change the number of regular-work hours per 
week by changing the number 40 in lines 200 and 210. 
Change the overtime multiplier of 1.5 by changing the 
number 1.5 in line 300. 
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This program makes payroll booking quick and simple. 


Program Listing 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


"I" REM SCREEN CLEAR 

"J" КЕМ BUZZER 

“PRINT :DIM N$(2@),KY$(1) 

"ХКК" 

"ж HOURLY WAGES ж" 

RI ЗЕЗЕЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ € € e EE" 

: PRINT 
"EMPLOYEE'S NAME: ":INPUT N$ 
"3" REM BUZZER 

"HOURLY PAY RATE $":INPUT P 
"3" ВЕМ BUZZER 
"TOTAL HOURS WORKED: "INPUT H 
"9" КЕМ BUZZER 


IF Н<40.001 THEN RHzH:OHzü:GOTO 300 
IF Н>40 THEN ОН-Н-АЙ RH=48 
OP=1.5%#P: PA-RHXP 1 PEzOHXOP 

PY=PA+PB 

PY=INT(100*PY+@.5) / 100 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
FOR L 
PRINT 
PRINT 
PRINT 
INPUT 


"3" : КЕМ SCREEN 
"EMPLOYEE: "МФ 


"TOTAL HOURS: "ІН 

"REGULAR HOURS: "¿RH 
"REGULAR RATE $"3P 

"TOTAL REGULAR DOLLARS Ф" РА 


"OVERTIME HOURS: "30H 
"OVERTIME RATE Ф":ОР 


"TOTAL OVERTIME +": РР. 


"GROSS PAY %"3РҮ 


=1 TO 5:PRINT :NEXT L 


"TO COMPUTE WAGES FOR A" 
"DIFFERENT EMPLOYEE," 
"PRESS RETURN" 

КҮФ 


CLR :GOTO 10 


Sample Run 


x X X X X X X X X X X X X X X X 


* HOURLY WAGES * 


X X X X X X X X X X X X X X X X 


EMPLOYEE'S NAME: 


JONES RETURN 
HOURLY PAY RATE: 
5.00 RETURN 
TOTAL NUMBER OF HOURS WORKED: 
50 RETURN 


EMPLOYEE: JONES 
TOTAL HOURS: 50 


REGULAR HOURS: 40 
REGULAR RATE: $5 
TOTAL REGULAR: 5200 


OVERTIME HOURS: 10 


OVERTIME RATE: $7.5 
TOTAL OVERTIME: $75 


GROSS PAY: $2.75 


Ad Campaign Profit 


The ad salesman is standing in your office pressing 
for your answer. Do you want to advertise or not? Adver- 
tising costs plenty of money today. How can you make a 
quick decision about whether or not sales from advertis- 
ing would be worth the cost? 

In this program, the computer asks you for informa- 
tion about the list price of the item you would sell through 
advertising. It asks for the manufacturing cost of that 
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item; the cost of the advertising campaign; and the 
number of units sold. 

It computes your gross sales and deducts the cost of 
manufacturing and advertising to show an estimate of 
profits to be expected. If you key in a zero in response to 
the number-sold question, the machine will inquire as to 
the amount of profit you would like to make and then tell 
you how many units you would have to sell to make such 
a profit. 

If you would like to make your own changes to this 
program listing, you'll want to know that memory location 
B holds the list price of the item you are selling; C is the 
unit manufacturing cost of the item; D is the total adver- 
tising cost; A is the number of units sold of the item; E is 
the profit on the sales of the item; and F is the profit you 
say you want to make. 

Suppose you have an item you sell for $9.95 and it 
costs you $1.25 to produce it. An ad campaign costing 
$330 results in sales of 50 units. Your profit from the cam- 
paign would be $105. If you only wanted to know how 
many units you would have to sell to break even, enter 
zero in response to the number-sold question and $1 to 
the profit-wanted question. You'll discover you need to 
sell just over 38 units to break even. 


Program Listing 


іЙ PRINT "9": ВЕМ CLEAR SCREEN 
20 CLR 

JO PRINT "LIST $" 

40 INPUT P. 

30 PRINT "MANUFACTURING COST $" 
60 INPUT С 

70 PRINT "ADVERTISING COST +" 
80 INPUT D 

90 PRINT "QUANTITY SOLD" 

120 INPUT А 

118 IF A=@ THEN 200 

120 E-AX*XR—-AX*C-D 

130 PRINT :PRINT 

140 PRINT "PROFIT:","4£";E 
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15@ PRINT :PRINT 

160 GOTO 90 

200 PRINT "PROFIT WANTED $" 
218 INPUT F 

220 A=(F+D)/(B-C) 

230 PRINT :PRINT 

240 PRINT "SELL:",A 

250 PRINT "РКОЕТТ:", "4" Е 
250 PRINT :PRINT 

270 GOTO 90 


Media Money Massage 


If you have used the Ad Campaign Profit program 
earlier in this book, you know how many bucks you can 
expect to make from advertising. But, suppose two 
salesmen are standing in your office. One from your local 
newspaper and the other from a local television station. 
Both want your advertising dollar and you can't decide 
which is the best buy. 

This program compares the cost of advertising in two 
media and reports which is most favorable. First it com- 
putes cost-per-thousand. Then it highlights the least- 
expensive medium. 

And, it compares any media—newspaper, 
radio, television, magazines, shoppers, etc. 

Imagine your friendly salesmen are from the Daily 
Post and the Evening News. The ad in the Post costs 
$250. In the News it is $300. The Post's circulation is 
27,500 readers. The News has 32,500 readers. Which is 
the better buy? The Post is about 14€ cheaper per thou- 
sand readers. 


Program Listing 

10 PRINT "}":REM CLEAR SCREEN 
га DIM N#$(20)5P$(20),K$ (1) 

30 PRINT "FIRST MEDIUM: " 
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INPUT 
PRINT 
INPUT 
PRINT 
„INPUT 


N$ 
"ADVERTISING COST $" 
ñ 

"CIRCULATION:" 

C 


90 M=1000* (A/C) 


100 
110 
120 
130) 
140 
150 
160 
170 
200 
210 
220 
2.50 
240 
258 
260 
заав 
310 


700 


PRINT 
PRINT 
INPUT 
PRINT 
INPUT 
PRINT 
INPUT 


"SECOND MEDIUM:" 

P$ 

"ADVERTISING COST $" 
Q 

"CIRCULATION:" 

R 


S=1000*(Q/R) 


PRINT 
PRINT 
PRINT 


FOR L=1 TO 23:PRINT 


PRINT 


"1" REM CLEAR SCREEN 
"1" = КЕМ BUZZER 
:PRINT 

U*X"SINEXT L 


IF 5>М THEN 300 
IF М5 THEN 400 
PRINT N$ 


PRINT 
PRINT 
PRINT 


"HAS A LOWER" 
"COST PER THOUSAND" 
"AT $"5M 


GOTO 500 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


FOR L=1 TO Z3:PRINT 


PRINT 


P$ 
"HAS A LOWER" 

"COST PER THOUSAND" 
"АТ %%:5 


N$ 

"COST PER THOUSAND: $" 5M 
"ADVERTISING COST: $";А 
"CIRCULATION: "С 


P$ 

"COST PER THOUSAND: Ф" {65 
"ADVERTISING COST: $" ;Q 
"CIRCULATION: "sR 
"*"::NEXT L 
:PRINT 


710 PRINT "FOR MORE, PRESS RETURN" 
720 INPUT КФ 
730 CLR :GOTO ій 


Sales Required For A Profit 


This handy program gives a quick estimate of how 
many units have to be sold, at a certain "profit" or 
cashflow amount per unit, to achieve a desired gross pro- 
fit or cashflow. 

Suppose you sell Widgets. Each Widget sold pro- 
vides a profit of $5. You decide you want an income of 
$30,000 from selling these Widgets. How many Widgets 
must you sell? Per year? Per month? Per week? Per day? 

By the way, this program assumes a six-day 
workweek. If you want to use a five-day workweek, change 
the number 6 at the end of line 70to 5. 

Very handy! 


Program Listing 


10 PRINT "}"=REM CLEAR SCREEN 
20 DIM Х%(1) 

30 PRINT "INCOME WANTED = $” 

40 INPUT I 

Эд PRINT "PROFIT/UNIT SOLD = $" 
60 INPUT Р 

78 Y=l/PiM=Y/12<:1W=Y/52:1D=W/6 
100 PRINT :PRINT 


110 PRINT "SELL "3Y3" PER YR" 
120 PRINT "SELL "3M3" PER МО" 
130 PRINT "SELL "τς" PER WEEK" 
140 PRINT "SELL "505" PER DAY" 


¿00 PRINT :PRINT :PRINT 

210 PRINT "TO DO MORE, PRESS RETURN" 
220 INPUT κ 

230 CLR :GOTO 10 
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Sample Run 


INCOME WANTED = Š 
30000 

PROFIT/UNIT SOLD - Š 
5 


SELL 6000 PER YR 
SELL 500 PER Mo 
SELL 115.384615 PER WEEK 
SELL 19.23076916 PER DAY 


Salesman's Commission 


Representatives, salesmen, account representatives, 
sales representatives. Here's the no-sweat way to com- 
pute commissions to be paid to your sales corps. 

The computer will ask you for pertinent data and then 
display results including the salesman's name, the pay 


period, his commission percentage rate, gross sales, and 


commission payable. 


Program Listing 


10 DIM D$(20),N$(20),KY$(1) 
15 PRINT "}":РЕМ CLEAR SCREEN 


20 PRINT "9" :ВЕМ BUZZER 


23 PRINT ">>>>> REP COMMISSIONS 


30 PRINT 
35 PRINT 


40 PRINT "SALES PERIOD ENDING DATE" 


45 INPUT D$ 


30 PRINT "SALESMAN'S NAME: 


33 INPUT N$ 


50 PRINT "COMMISSION PERCENTAGE Y" 


65 INPUT P 
70 К=Р*0.01 


80 PRINT "SALESMAN'S GROSS SALES $" 
85 INPUT Q 

90 T=kxQ 

95 PRINT "}":REM CLEAR SCREEN 

100 PRINT ">":REM BUZZER 

110 PRINT “SALESMAN: "МФ 

120 PRINT "PERIOD ENDING: ";D$ 

130 PRINT "COMMISSION RATE: "р; "У" 
140 PRINT "GROSS SALES: %%0 

150 PRINT "COMMISSION: $";T 

150 FOR L-1 TO 8:PRINT :NEXT L 

170 PRINT "FOR ANOTHER," 

180 PRINT "PRESS ANY RETURN" 

190 INPUT KY$ 

200 CLR :GoTO 10 


Sample Run 
REP COMMISSIONS 


SALES PERIOD ENDING DATE: 


12/31/83 RETURN 
SALESMAN'S NAME: 

SMITH RETURN 
COMMISSION PERCENTAGE: 

15 RETURN 
SALESMAN'S GROSS SALES: $ 
16243.00 RETURN 
SALESMAN: SMITH 


PERIOD ENDING: 12/31/83 
COMMISSION RATE: 15% 
GROSS SALES: 516243 
COMMISSION: 52436.45 
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Unit Price 


Suppose you find 895 green Widgets and buy them 
for $695. How much did each green Widget cost? 
Rounded off, $7.77. 


Unit price is total price divided by quantity. The quanti- 
ty can be expressed in weight, total numbers, etc. It works 
the same whether you are talking about pounds of coffee, 
yards of concrete, gallons of ice cream, boxes of books, 
or units of Widgets. 


This program asks for the name of the item, quantity 
purchased and total price paid. It then displays quantity, 
name, total and unit price. 


Program Listing 


10 DIM N$(20),FY$(1) 

20 PRINT "}":REM CLEAR SCREEN 

20 PRINT " RHR REE" 

40 PRINT "* UNIT PRICE +" 

Эд PRINT "Rear" 

60 PRINT :PRINT 

7@ PRINT "NAME OF ITEM: " 

80 INPUT N$ 

90 PRINT "QUANTITY OF ITEMS: " 

100 INPUT Q 

110 PRINT "TOTAL PRICE FOR ALL ITEMS $" 
120 INPUT Р 

130 UzP/à | 

140 PRINT "":REM BUZZER 

150 PRINT 

150 PRINT 

170 PRINT 95" "3N$;"S";" TOTAL $";P 
180 PRINT "EACH "3N$5" IS $"3U 

190 FOR L-1 TO 8:PRINT :NEXT L 

200 PRINT "TO DO MORE, PRESS RETURN" 
21@ INPUT КҮФ 

220 CLR :GOTO 10 


Sample Run 


UNIT PRICE 


NAME OF ITEM 
WIDGET RETURN 


QUANTITY OF ITEMS 
150 RETURN 


TOTAL PRICE FOR ALL ITEMS $ 
88.75 RETURN 


150 WIDGETS TOTAL $88.75 
EACH WIDGET $.59166666 


Gross & Net Computer 


How much cash flow will I generate if I sell 100 
thingamabobs? A question faced everyday in the 
business office. Whether you sell large lots at wholesale, 
small quantities across the retail counter, or individual 
items via mail order, this program will give you a quick 
estimate of expected cash flow and potential profits. 

It allows fast comparisons when quick decisions are 
needed. The computer asks you questions and then 
generates the answers you need in an attractive chart. 


In response to its inquiries on the display, tell 
the computer how much it costs to manufacture your 
thingamabob, what its list price is and at what discount 
you plan to sell the thingamabobs. As soon as you tell the 
computer how many thingamabobs you will sell, it will 
compute the total invoice amount you will charge your 
customer and your anticipated profits after manufactur- 
ing costs are deducted. 


This program is a useful too! for small business, 
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whether a local furniture store, supermarket or regional 


mail-order house. 


Program Listing 


280 
зай 
310 
320 
330 


DIM Т%(20),К%(1) 


PRINT 
PRINT 
INPUT 
PRINT 
INPUT 
PRINT 
INPUT 


PRINT 


"КЕМ CLEAR SCREEN 


"LIST PRICE $" 

L. 

"MANUFACTURING COST $" 
C 


"WHOLESALE DISCOUNT %" 


INPUT W 
D-1-0.01*V 


PRINT 


"QUANTITY SOLD" 


INPUT S 
I-Lx*S*D:P-I-S*C 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 


пу" SREM CLEAR SCREEN 
"ТТЕМ:", „ТУ 

"LIST PRICE","$";L 
"MFG COST", , "Ф" {С 
"SOLD", ,S 
"DISCOUNT",,Ws"Z" 


"INVOICE",, "$" 41 
"PROFIT",,"$"3P 

PRINT :PRINT :PRINT 
"FOR MORE, PRESS RETURN" 
Kt 


CLR :GOTO 10 


Sample Run 


ITEM: 


WIDGET 


LIST PRICE $9.95 
MFG COST $1.35 

SOLD 500 
DISCOUNT 50.5 


72 


INVOICE $2487.5 
PROFIT S1812.5 


ITEM: THINGAMAGIG 
LIST PRICE $5.95 
MFG COST $0.95 
SOLD 500 

DISCOUNT 50.5 
INVOICE $1487.5 
PROFIT $1012.5 


Executive Decision Maker 


Stumped by a toughie? Got one too hot to handle 
alone? Need help with major decisions? When there is no 
other way to decide, punch up this quickie and get a 
definite YES or NO. 


Program Listing 


10 DIM КҮ%(1) 

20 PRINT ")"šREM CLEAR SCREEN 

за R=INT(1000*(RND(1))) 

40 IF К> 499 THEN PRINT "YES":GOTO 60 
50 PRINT "NO" 

60 FOR ісі TO 10:PRINT NEXT L 

70 PRINT "TO MAKE ANOTHER" 

80 PRINT "IMPORTANT DECISION, 
90 PRINT "PRESS RETURN" 

100 INPUT KY$ 

110 PRINT "}":REM BUZZER 

120 CLR 

130 GOTO 10 
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Appendix 


Appendix A: ATARI BASIC Words 


Here is a handy list of all the words in the ATARI ver- 
sion of the BASIC computer language: 


ABS 
ADR 
AND 
ASC 
ATN 
BYE 
CLOAD 
CHR$ 
CLOG 
CLOSE 
CLR 
COLOR 
COM 
CONT 
COS 


CSAVE 


absolute value function 

string memory address function 
logical expression true only if both are 
finds ASCII character number 
arctangent 

leave BASIC; write directly on screen 
load program from tape 

converts ASCII number to character 
base 10 logarithm 

close file at end of I/O job 
undimensions strings and arrays 
select color register for graphics 
same as DIM 

continue, after BREAK or STOP 
cosine 

sends data from computer to tape 
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GOTO 


PRINT 


stores info in program line 

switch to trig degrees from radians 
reserves memory for array or string 
displays disk menu 

draws line between points 
concludes a program run 

input data or programs 

e to a power 

sets range of FOR/NEXT loop 
shows remaining available memory 
input single byte of data, with disk 
branch to subroutine 

branch to a line 

selects graphics mode 

decision maker 

stops for keyboard input of data 
portion of number left of decimal 
number of characters in a string 
optional; assigns value to variable 
display contents of program memory 
send program from disk to computer 
stores specific graphics point 
natural logarithm 

print on paper with line printer 
erase all program and data memory 
other half of FOR/NEXT loop 

not true = 1; true = 0 

used with disk 

use with GOTO or GOSUB branches 
opens a file for I/O 

if either true, a 1; O if both false 
position of game paddle 

look in one memory location 

light a single dot on video screen 
for disk operations 

put info in one memory location 
abnormal departure from GOSUB loop 
move to specific video screen point 
causes output from the computer 
status of trigger button on paddle 
output one data byte from computer 
trig info in rads, not degrees 


READ 

REM 
RESTORE 
RETURN 
RND 

RUN 

SAVE 
SETCOLOR 
SGN 


get info from DATA lines 
ignore these remarks 
allows DATA lines to be re-read 


back from subroutine to main program 


random number between 0 and 1 
execute a program 

store data or program on disk 
store color data 

find sign of a number 

sine 

control pitch, volume, tone 
square root 

asks state of ΙΟ device 

size of skip in FOR/NEXT loop 
position of stick game controller 
determines if stick trigger button is 
pressed 

temporary program run halt 
changes number to character string 
IF true, does what follows 

part of FOR/NEXT loop range 

on input error, jumps to a line 
machine-language subroutine 
converts string to a number 

ИО in graphics or disk work 
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Appendix B: Error Messages 


These are the messages your ATARI is trying to send 
you when it presents an error number. Naturally, it tells 
you the line number where the error is located. 


Number 


2 
3 
4 


10 
11 


you have used up all available memory 

the number can't have the value it has 

you are only allowed 128 different variable 
names 

your string is longer than the space you 
dimensioned 

you are tryng to READ more DATA than you 
have available 

a number is greater than 32767 

you are trying to put string data in a number 
variable 

you have not dimensioned an array or string 
properly 

you simply have too many GOSUBs 

you either have tried to divide by zero or else 
you want a result too large or too small for 
the computer to handle 
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12 


13 
14 


15 


16 
17 


18 
19 
20 


21 
128 


129 


130 
131 


132 
133 
134 
135 


136 
137 


138 
139 


140 
141 
142 
143 
144 
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you are using GOSUB or GOTO or THEN to 
jump to a nonexistent line number 

you have a NEXT but there was no FOR 

the statement simply is too long or too com- 
plex for BASIC to handle 

again you have tried a NEXT or a RETURN 
without the necessary FOR or GOSUB 
there is a RETURN without a GOSUB 

don't POKE there; try NEW to get out of this 
mess; if that doesn't work, kill the power and 
turn it back on and re-enter the program 
without POKEs 

you are trying to use an invalid string 
character 

there's not enough memory to complete the 
LOAD 

you have a device number larger than 7 or 
equal to zero 

you are trying to LOAD a no-LOAD file 

you hit the BREAK key while the machine 
was doing something 

the input/output control block already is 
open 

you are calling for a nonexistent device 

you have sent a read command to a write- 
only device, the printer 

you can't use that command for that device 
you forgot to open the file or device 

that is an illegal device number 

you are trying to send a write command to a 
read-only device 

you have read to the end of the file 

you are trying to read a record longer than 
256 characters 

the device is turned off, dummy 

you are getting garbage at a serial port or 
else you have a bad disk drive 

input framing error 

your cursor is out of range for that mode 
serial bus data frame overrun 

serial bus data frame checksum error 

you are trying to write on a write-protected 
disk 


something’s wrong with what you just wrote 
that function is not implemented 

you don't have enough memory available for 
the graphics mode you selected 

that's a drive number error 

you have too many files OPENed 

the disk is full 

you've blown the whole bit 

file numbers don't match, the disk links are 
messed up 

that's a file name error 

there's an error in the POINT data length 
that file is locked 

that command is invalid 

the directory is full 

that file cannot be located anywhere 

the POINT is invalid 


83 


Appendix C: 
ASCII Character Numbers 


These are the numbers used with the BASIC words 
ASC and CHR$ to convert to a character or to a number. 

For instance, if you write PRINT CHR$(65) the com- 
puter will display the upper-case alphabetical letter A. If 
you were to write PRINT ASC(A) the computer would 
display the number 65. 

Here's the complete list of ASCII character numbers 
for your ATARI computer: 


Decimal Hex Character 
Number Number 


‚ 1 D 


85 


10 


11 


N 
ka. 


13 


14 


15 


86 


0 O 0O 


O v е e < 
v v τή v τή 
çO t` со өр) © 
Т“ ті v ms. N 


> 
Ї SUS .F 


15 cO t< 
=ч еч v 
T e 
e 5 N 


> < 
Ti. 


за с = 
de] ES 
X е? N N 


” 
« 


IC 


28 


5 


29 


87 


88 


30 


31 


32 


33 


34 


35 


36 


37 


38 


39 


40 


41 


43 


1E 


iF 


20 


21. 


22 


23 


25 


26 


27 


28 


29 


2A 


2B 


% 


45 


46 


47 


48 


49 


50 


51 


52 


53 


54 


55 


56 


57 


2C 


2D 


2E 


2F 


30 


31 


32 


33 


34 


35 


36 


37 


38 


39 


89 


90 


58 


59 


60 


61 


62 


63 


64 


65 


66 


67 


68 


69 


70 


71 


3A 


3B 


3C 


3D 


3E 


ЗЕ 


40 


41 


42 


43 


45 


47 


72 


73 


74 


75 


76 


77 


78 


79 


80 


81 


82 


83 


84 


85 


48 


49 


4A 


AB 


4C 


4D 


AE 


4Е 


50 


51 


52 


53 


54 


55 


91 


92 


86 


87 


88 


89 


90 


91 


92 


93 


95 


96 


97 


98 


99 


56 


57 


58 


59 


5A 


5B 


5C 


5D 


5E 


5F 


60 


61 


62 


63 


100 


101 


102 


103 


104 


105 


106 


107 


108 


109 


110 


11i 


112 


113 


65 


66 


67 


68 


69 


6A 


6B 


6C 


6D 


6E 


6F 


70 


71 


93 


72 


114 


73 


115 


74 


116 


75 


117 


76 


118 


77 


119 


78 


120 


79 


121 


7A 


122 


7B 


123 


7C 


124 


7D 


125 


126 


127 


9B 


155 


9C 


156 


БИО 


эр 
ЭЕ 


157 
158 


Ll 


ЭР 


159 


94 


253 


254 


255 


FD Li (Buzzer) 

FE El (Delete 
character) 

FF (Insert 
character) 
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ATARI Computer Book I 


31 New ATARI Computer Programs 
for Home, School & Office 


by Alan North 


For the home, classroom or office, an all-new volume of tested 
ready-to-run software in BASIC for the ATARI Model 400 and ATARI 
Model 800 computers. 

For the home, Horoscope, Monthly Loan Payment, Poetrywriter, a 
bowling score sorter, savings account interest computer, wisecrack- 
ing insulter, and even a program to turn your ATARI into a one-armed 
bandit! 

For the student and teacher, Foreign Capitals, areas, V lumes, 
Photography, Astronomy, Math Flasher, state geographic centers, an 
event timer, and even a super exam score sorter. : 

For the small-business person, daily code chart, profit estimator, 
Invoice Computer, payroll computer, commission computer, ad cam- 
paign profits, unit price, gross and net computer and even the world's 
fastest Executive Decision Maker! 

All of these programs and more are among the 31 different sets of 
software in this handy volume. Each program is complete and will run 
all by itself. Or it can be blended into a larger set of program lines. 

As with all books from ARCsoft Publishers, all of the programs in 
this book have been designed for easy and quick typing into your 
ATARI Model 400 or ATARI Mode! 800 personal computer. These are 
ideal programs for newcomers, novices, beginners and first-timers in 
the world of computers. 

This book includes a handy Appendix of all words in the ATARI 
version of the BASIC programming language. And a list of all error 
messages used in the ATARI 400 and 800. 

These programs will run on other popular computer systems with 
only minor modifications to program lines. With slight changes, use 
these on TRS-80 Model |, ΙΙ, Ш, 16, Color, Pocket, Commodore VIC, 
PET, Sinclair ZX-81, MicroAce, Timex 1000, Apple Il, Sharp, Casio, 
Panasonic, Quasar, Hewlett-Packard and other microcomputers using 
the BASIC language. ' 
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